home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / io2.doc < prev    next >
Text File  |  1995-03-31  |  2KB  |  41 lines
  1. IO2: Another collection of memory access utilities, by various authors. 
  2. Note: These are NOT downloadable in ASCII form. 
  3.  
  4. DIR 
  5.   SYSRCL @ #addr or string -> object. 
  6.     [ not listable ] 
  7.   PEEKF @ #addr -> contents. 
  8.     \<< NEWOB Code 
  9.     \>> 
  10.   PRC2 @ Port Recall Version 2: Port number -> port's objects & <p#> on stack. 
  11.     [ not listable ] 
  12.   PRCL @ Port Recall: Port number -> port's objects on stack. 
  13.     \<< # 18CD7h SYSEVAL # 21922h SYSEVAL # 18DBFh SYSEVAL 1 + ROLL DROP 
  14.     \>> 
  15.   Rcl @ to be used with FIND: subtracts 1 after FIND and does SYSRCL. 
  16.     \<< DUP 1 - SYSRCL 
  17.     \>> 
  18.   FIND @ #search, start#address -> #search, find#address+1. 
  19.        @ Note: last digit of #search is len(#search)-1. 
  20.     \<< RCWS 20 STWS SWAP # 0h OR SWAP STWS Code 1 + 
  21.     \>> 
  22.   ASCNC @ Convert from ASC with No Checksum. (Poor man's assembler) 
  23.     \<< "0000" + 
  24.       IF DUP TYPE 2 \=/ 
  25.       THEN "Not A String" DOERR 
  26.       END RCWS \-> ws 
  27.       \<< 16 STWS # 0h NEWOB SWAP DUP SIZE 
  28.         IF DUP 4 < 
  29.         THEN DROP SWAP DROP "Invalid String" DOERR 
  30.         END DUP 65 / IP - 4 - # 18CEAh SYSEVAL "" OVER # 61C1Ch SYSEVAL 
  31. SWAP # 6641F8000AF02DCCh # 130480679BF8CC0h # 518Ah SYSEVAL 
  32. # 19610313418D7EA4h # 518Ah SYSEVAL # 7134147114103123h # 518Ah SYSEVAL 
  33. # 5F6A971131607414h # 518Ah SYSEVAL # 12EA1717EA3F130Ch # 518Ah SYSEVAL 
  34. # 280826B3012808F4h # 518Ah SYSEVAL # 6B7028080BEE9091h # 518Ah SYSEVAL 
  35. # BE5DC1710610C512h # 518Ah SYSEVAL # 705D00003431A078h # 518Ah SYSEVAL 
  36. # 3D8FA26058961431h # 518Ah SYSEVAL # 312B0514h # 518Ah SYSEVAL 
  37. # 18F23h SYSEVAL ws STWS ROT DROP SWAP DROP 
  38.       \>> 
  39.     \>> 
  40. END 
  41.